(rcirc-mode): Fix initialization of coding systems based on

rcirc-coding-system-alist.

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index a0b328413b0c6f29d51f328312b78ec3b9ea9946..683d7c6f3c11b587551e82669ffd804c9753359f 100644 (file)
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -719,8 +719,8 @@ If NOTICEP is non-nil, send a notice instead of privmsg."
          (serv (if (consp (car i)) (cdar i) "")))
       (when (and (string-match chan (or target ""))
                 (string-match serv (rcirc-server-name process)))
-       (setq rcirc-decode-coding-system (if (consp (cdr i)) (cadr i) i)
-             rcirc-encode-coding-system (if (consp (cdr i)) (cddr i) i)))))
+       (setq rcirc-decode-coding-system (if (consp (cdr i)) (cadr i) (cdr i))
+             rcirc-encode-coding-system (if (consp (cdr i)) (cddr i) (cdr i))))))
 
   ;; setup the prompt and markers
   (make-local-variable 'rcirc-prompt-start-marker)